home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / abop-compound-leave.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  313 b   |  25 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. # The elongation rule from page 130 of ABOP :
  4. #
  5. # F(a) : * -> F(a*R)
  6. #
  7. # translates into :
  8. #
  9. # F='(R)F'(1/R)
  10. #
  11. 15
  12. 45
  13. 20
  14. #
  15. &(90)+(90)a
  16. #
  17. a=F[+cx]Fb
  18. b=F[-cy]Fa
  19. #            apical delay
  20. x=a
  21. y=b
  22. #
  23. F='(1.36)F'(.735)    # internode elongation rate
  24. @
  25.